home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / adressdatei v2.4 (.txt) next >
Commodore BASIC  |  2022-10-26  |  891b  |  21 lines
  1. 1 printchr$(14):d$=chr$(17)+chr$(17):i$=chr$(18):c$=chr$(147):h$=chr$(19)
  2. 2 u$=" [193]dressen ":a$(0)="1 [204]iste":a$(1)="2 [211]uchen":a$(2)="3 [197]ingabe"
  3. 3 a$(3)="4 [197]nde":b$(0)="[193]nrede:":b$(1)="[214]orname:":b$(2)="[206]ame:"
  4. 4 b$(3)="[211]trasse:":b$(4)="[208][204][218]:":b$(5)="[207]rt:":b$(6)="[212]elefon:":e$=chr$(34)
  5. 5 printc$;:printtab(2);i$;u$;d$;d$:fori=0to3:printtab(2);a$(i);d$:nexti
  6. 6 printtab(2);d$;i$;" [193]uswahl 1-4 ";:inputx:ifx<1orx>4goto5
  7. 7 onxgoto8,10,14,17
  8. 8 restore:reade:fori=1toe:forj=0to6:reade$(j):nextj:gosub19:printh$:forj=0to6
  9. 9 printtab(13);d$;e$(j):nextj:poke198,0:wait198,1:nexti:goto5
  10. 10 printc$;d$;d$:input"[211]uchbegriff: ";s$:restore:reade:fori=1toe:forj=0to6
  11. 11 reade$(j):nextj:forj=0to6:ifs$<>e$(j)goto13
  12. 12 gosub19:printh$:fork=0to6:printtab(13);d$;e$(k):nextk:poke198,0:wait198,1
  13. 13 nextj,i:goto5
  14. 14 gosub19:printh$:fori=0to6:printtab(13);d$;:inpute$(i):nexti:restore:reade
  15. 15 e=e+1:printc$;"100data"e:fori=0to6:print100+e*10+i;"data"+e$+e$(i)+e$:nexti
  16. 16 print"goto1":poke631,19:fori=1to9:poke631+i,13:nexti:poke198,10:poke2,1:end
  17. 17 ifpeek(2)=0thenend
  18. 18 open15,8,15,"s:adressen":close15:save"adressen",8:end
  19. 19 printc$:forl=0to6:printtab(2);d$;b$(l):nextl:return
  20. 100 data 0
  21.